(* main.ml : tests *)
 
let i2s i = Printf.sprintf "%02d" i
let c2s c = Printf.sprintf "%c" c
let s2s s = Printf.sprintf "%S" s
 
let main () =
  Random.self_init ();
  let t1 = Randombuild.int_full 3 in
  let t2 = Randombuild.char_full 3 in
  let t3 = Randombuild.string_part 3 in
    begin
      Format.set_margin 40;
      Format.printf "@.@[<v 2>t1 =@,";
      Tree.print i2s t1;
      Format.printf "@]@.@[<v 2>t2 =@,";
      Tree.print c2s t2;
      Format.printf "@]@.@[<v 2>t3 =@,";
      Tree.print s2s t3;
      Format.printf "@]@.";
      exit 0
    end
 
let _ = main ()
